RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE glnm ( wie *v04-000' 


BLISS32C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES J 


BEGIN 


ADAP ELISIS LISI T TTI T ETT TT TT TTT Terri rere i criti titi iti iii iii itiiiiiiiiity 


'@ 

it COPYRIGHT (<) 1978 1980, 1982, 1984 BY 

iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
it ONLY IN i DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


mn 
® 
a 
* 
* 
® 
+ 
® 
i R R VA . 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
! « 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
* 
* 
we 
® 
® 
x 
® 


!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


APES ESLIOLIESII SEITE EET T ETT TTP cece cece cre cr ci rice rc i cic i titi iii iiiig) 
' 


i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Get a list of numbers 

ENVIRONMENT: Transportable 

AUTHOR: R.W. Friday CREATION DATE: May, 1978 
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peerre "Revision History’ 
MODIFIED BY: 
i 
i 
ie 


004 Ron Randall 07-Mar-1983 


Global s edit of all modules. U Updated module names, idents, 
copyright dates. Changed requir files to BLISS library. 
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HEoseoct9Rs 00:42:19 vaReHt Biisectz v4.g-742 page 5 
ZSBTTL ‘Module Level Declarations’ 


TABLE OF CONTENTS: 
i INCLUDE FILES: 


i 

' 

LIBRARY 'NXPORT: XPORT* ; ! XPORT Librar 

REQUIRE ‘REQ:RNODEF'; ! RUNOFF vartent definitions 
ZIF DSRPL US ZTHEN 

bese TREO TDPLLIB’; ! DSRPLUS BLISS Library 
wen *REQ:DSRLIB'; ! DSR BLISS Library 

! 


; EXTERNAL REFERENCES: 


EXTERNAL 
IRA : FIXED STRING, 


NMLST : NUMBER_LIST; 
EXTERNAL ROUTINE 

GE TNUM, 

RSKIPS; 


K 7 
vou-000 Module Level Declarations 12-860-1382 99:58:48 DISK VMSRASTE 4g 


- e 4 
FF. . 


Pa 
RCJGLNM.BLI;1 (4) 


= 


; ; p ! GLOBAL ROUTINE GLNM (COUNT) : NOVALUE = 

; 1 !¢¢ 

; ¢ } : FUNCTIONAL DESCRIPTION: 

: § 131i Calls GETNUM to pick up ‘‘count’’ numbers, at most. 

: 14 1! Stops when a cherecter is encountered that is not a comma, 

; : 1? ! and GETNUM has previously returned a null value. 

; 20 7 | FORMAL PARAMETERS: 

: % 19 i "COUNT’ specifies the maximum number of numbers wanted. 

: 34 1 { IMPLICIT INPUTS: None 

; %6 § { IMPLICIT OUTPUTS: None 

> 98 0 5 1 | ROUTINE VALUE: 

3 99 1 ! COMPLETION CODES: None 

3; 100 0 1! 

; 6101 8 8 1 ! SIDE EFFECTS: None 

: 108 0580 1 

: 104 0231 BEGIN 

; 105 ¢ LOCAL 

; 138 3 GETNUM_RESULT, 

: 108 5 NUMBER_SIGN 

: 109 0236 NUMBER~VALUE , 

; 139 8 NUMBER_LENGTH; 

; 112 $539 NMLST_COUNT = 0; 

3; (11 0240 ‘If COUNT is greater than zero, then the List can be that long, 
3 116 ose) ‘at most. If COUNT is less than or equal to zero, pick up as many 
3 a 8 ¢g ‘numbers as space is reserved for. 

Wl BAG geome ons 

; 119 46 ese KOUNT = -COUNT 

; i 0 48 KOUNT = NMLST_MAXSIZE; 

; 5 0 30 INCR I FROM 1 TO .KOUNT DO 

; 158 8 26 GETNUM_RESULT = GETNUM (IRA, NUMBER_VALUE, NUMBER_SIGN, NUMBER_LENGTH); 
; 6 0 33 RSKIPS” (IRA); 'Skip spaces and tabs trailing a number. 
; 128 ° 35 IF _.GETNUM_RESULT 

; ' $7 2 BEGIN ‘Number was ok. 

> 1 é 5 IF .NUMBER_LENGTH EQL 0 

S 60 4 

: : : re BEGIN 

Pag 6 6 IF .KHAR EQL XC',' 

3 7 64 THEN 


7 
18-56 -1984 00:42:10 VAX-11 Bliss-32 V4.0-74 
1 ~$007 1382 90:68:56 DIEKSVMGMASTERSCRUNOFe SRCIGLNM.BLI:1°%° (63 


-000 Module Level Declarations 


3 1 5 BEGIN ‘It lly i 
133 é SCL COUNT = <1; It really is a null number, not the end of the List 
s 14 NMLST_VALUE (.1) = 0; 
; 141 8 NMLST-DESCR (.1) = NM_NULL; 
3 146 § KCNS 7); 'Skip the ',' 
; 14 0 END 
: Vee 7 'No more numbers in the List. 
: 14 7 RETURN; 
i Be 
> 149 re 4 ELSE 
; 150 7 BEGIN 'Not a null number 
: ; 1 4 RSKIPS (IRA); 'Skip trailing spaces and tabs. 
: 4 5 o 80 IF (.KHAR EQL %C',") AND 
: 128 4 (.1 NEQ .KOUNTS 'Don't skip any characters after the Last item in the List 
; 136 0 es KCNS (); !Skip trailing comma. 
\; 158 0285 ; NMLST_COUNT = .I; 
: 159 8 Hy] NMLST_VALUE (.1) = .NUMBER VALUE; 
; 160 87 6 NMLST DESCR (.1) = CIF .NUMBER SIGN EQL 1 
3: 161 0 3 THEN RM_PLUS ELSE IF .NUMBER_SYIGN EQL -1 
; 166 0289 THEN MINUS ELSE NM_UNSIGNED); 
: 16 0290 
: 188 6 $3 i END 
> 166 0293 3 ELSE 
: 167 0294 4 BEGIN 'Number in error. 
; 198 8 + ? RSKIPS (IRA); 'Skip trailing spaces and tabs. 
: 170 0 39 4 IF (.KHAR EQL %C',") AND 
; 4 8 38 ? (.1 NEQ .KOUNTS !Don't skip any characters after the Last item in the List 
3 178 9300 4 KCNS (); ‘Skip trailing comma. 
: 175 0308 4 NMLST_COUNT = .I; 
3 178 638 4 NMLST_VALUE (.1) = .NUMBER_VALUE; 
3: 17 0304 4 NMLST_DESCR (.1) = NM_BAD; 
i 15 $306 — 
: 180 0307 END; 
3; «181 0308 
3; 182 0 END; ‘End of GLNM 


-TITLE GLNM 
SIDENT \V04-000\ 

-EXTRN IRA, KHAR, NMLST 
-EXTRN GETNUM, RSKIPS, RINTES 


-PSECT SCODES,NOWRT,2 


-ENTRY GLNM, Save R2,R3,R4,R5,R6,R7,R8 : 0208 
MOVAB SKIPS, RB ; 
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M f 
GLNM 4 VAX-11 Bliss-32 V4.0-742 
v04-000 Module Level Declarations 12: i 1386 99: 68; i DISKSVMSMAS STER: CRUNOF F ..SRCIGLNM.BLI;1 age 


7 G EF 3 0 MOVAB  KHAR R7 ; : 
: G EF 9E MOVAB NMLSf : : 
G FF 9 1 MOV [RA+12 Re : ; 
E c ¢ IE SUBL sh : : 
66 D CLRL L§1 : ; 
04 AC D8 0 3 TSTL COUNT : ; 
06 1 6 BLEG : ; 
53 04 =A 06 0 : MOVL OUNT, KOUNT : ; 
53 : DO 00 : 1$ MOVL #40, KOUNT : ; 
D4 00 2$ CLRL : 
4c 11 ° BRB $ : 
SE OD 3$ PUSHL SP : 
08 AE 3 00 PUSHAB NUMBER_SIGN : 
10 AE F OO03A PUSHAB NUMBER~VALUE : 
FL AS 9F 00030 PUSHAB IRA ; 
000000006 EF 04 FB 0040 CALLS #4, GETNUM : 
4 Q DO 0004 OVL RO GETNUM_RESULT : 
F4 AS 9F OO04A PUSHAB IRA 3 
68 01 FB 0040 CALLS #1, RSKIPS ; 
03 4 : 9050 BLBS § GETNUM_RESULT, 4$ : 
0080 31 0005 BRW : 
6— D5 00056 4$ TSTL | NUMBER_LENGTH : 
29 12 0005 BNEQ ; 
2c 67 D1 O005A CMPL = KHAR, #44 : 
01 13 0005D BEQL 5$ : 
04 0005F RET ; 
66 52 D0 00060 5$ MOVL a ; 
6642 D4 00063 CLRL : 
00A0 core bs 00088 etal 13' éoc13 
09 14 0006D BGTR ; 
67 006 8F 9A 0006F MOVZBL M#RINTES, KHAR ; 
65 gt CE 90073 MNEGL #1, IRA+12 ; 
¢ 11 00076 BRB 14 ; 
67 F8 BS 9A 00078 6$ MOVZBL @IRA+4, KHAR : 
FB OAS i) 007C¢ INCL  IRA+4 ; 
65 D7 OO007F DECL IRA+12 ; 
51 11 0081 7$ BRB 14$ F 
F4 AS 9F 00083 8S PUSHAB IRA ; 
68 01 FB 0086 CALLS #1, RSKIPS ; 
2c 67 D 0089 CMPL = KHAR, #44 ; 
1B 12 0008C BNE : 
53 52D OBE CMPL KOUNT : 
16 1 91 BEQL ; 
d5 0009 TSTL RA+12 : 
9 14 0009 BGTR ; 
67 006 8F 9A 009 MOVZBL #RINTES, KHAR ; 
65 1 cE 098 MNEGL #1, IRA+12 F 
9 11 0009 BRB : 
67 FB BS 9A QOOAD 9$ MOVZBL a1RAs4, KHAR : 
FBO D6 AG INCL IRA+4 F 
$ D A7 DECL IRA+12 ; 
66 2 D A9 10$: MOVL I, NMLST : 
664 08 AE D AC MOVL § NUMBER_VALUE, NMLSTCI) F 
01 04 AE D B CMPL NUMBER SIGN, #1 ; 
05 12 00085 BNEG ; 


Se 33SDUACS: BA erat .L32;1 1328 28 9 238 8 700.1 


RUNOFF . SRCJDSRLIB.L32;1 


255$DUA28 700.3 


N . 
NM 16-Sep-1 VAX-11 BLi $=32 V4.0-742 7 GSL 
v04-000 Module Level Declarations 12: 338: 38 99: 68; i DISKSVMSMASTER: CRUNOFF .SRCJGLNM.BLI;1 eet (4) v04 
50 9¢ dO 67 MOVL " RO : : 
11 BA BRB 1 : : 
FFFFFFFF 8F 04 AE ODI BC 11$: CMPL NUMBER_SIGN, #-1 :; 0288 : 
is C4 BNEQ 12$ : ; 
50 D c8 MOVL #3, RO $ 2 
11 000¢ BRB 13$ : ; 
3 1 OD cB 148: MOVL #1, RO 3 ; 
OOA0 C64 0 D CE 15$: MOVL Re NMLST+160C1) 3 S44 ; 
4 1100004 14$: BRB 18$ : 0257 ; 
F4 «AS OOF $308 15$ PUSHAB IRA : 0295 ; 
68 01 F 00D CALLS #1, arses 3 . 
2c 9? b Bape CMPL KHAR, #44 3 0297 : 
OF BNEG 178 ° : : 
53 52 Di OO0E1 CMPL I, KOUNT 3; 0298 : 
j 3 O0E4 BEQL 17S : : 
65 D5 QO0E6 TSTL soerte ; 0300 : 
7 14 QOOE8 BGTR 6$ 3 ‘ 
67 006 F 9A QOOEA MOVZBL #RINTES, KHAR 3 ° 
65 01 CE OOOEE MNEGL #1, IRA+12 3 : 
09 11 000F1 BRB 178 : : 
67 F8 B65 9A OQOOF3 16$: MOVZBL @IRA+4, KHAR 3 . 
F8 AS 6 Boer r INCL IRA+4 3 ; 
$3 D OOFA DECL IRA+12 é 
66 2 bO OOOFC 17$: MOVL I, NMLST 3; 030 
6642 08 AE DO OOOFF MOVL NUMBER VALUE NMLSTCIJ ; 030 
QOAO C642 04 DO 00104 MOVL NMCST+160C1) > 0304 
FF25 52 01 3 F1 OO10A 188: ACBL ZOONt ihe ie J 3 3620 
04 00110 RET 3; 0309 
; Routine Size: 273 bytes, Routine Base: $CODE$ + 0000 
: «183 0310 1 
3; «6184 0311 1 END 'End of module 
> «185 0312 O ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 273 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eeeeeeon Symbols eceeeece Pa ages Processing 
File Total Loaded Percent Mapped Time 
| 
j 


8 
voe~000 Module Level Declarations 18-Sep-1984 99: 68; i bie KSvNe MSM hast ERSCRUNOFF SRCIGLNM. BLI;1 gage “aS 


; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:GLNM/OBJ=0BJ$:GLNM MSRC$:GLNM/UPDATE=(ENH$:GLNM) 


Size: 273 ge e + 0 data bytes 
Run "tes: 8 3 

Elapsed “ae 

Lines/CPU Min: 19833 
Lexemes/CPU-Min: 1 

paso | Used: 79 cenae 

Compi ation Complete 
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